home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
gfx
/
edit
/
AmiCAD_2.07.lha
/
AmiCAD
/
ARexx
/
Souligner.AmiCAD
< prev
next >
Wrap
Text File
|
2000-11-12
|
2KB
|
57 lines
/* Soulignement d'un ou plusieurs textes
Version 1.00: 17 septembre 1998
Version 1.01: 14 avril 2000 (adaptation version 2.05)
Version 1.02: 11 novembre 2000 (localisation anglais/français)
$VER: Souligner 1.02 (© R.Florac, 11 novembre 2000) */
options results
signal on error
signal on syntax
'LANGUAGE'
if result="français.language" then fr=1
else fr=0
'OBJECTS'; objets=result
if objets=0 then do
if fr=1 then 'MESSAGE("Il n''y a aucun objet"+CHR(10)+"sur ce schéma !")'
else 'MESSAGE("There is no object"+CHR(10)+"on the document !")'
exit
end
objets=0
'SAVEALL:FIRSTSEL'; i=result
do while i>0
objets = objets + souligner(i)
'NEXTSEL('i')'; i=result
end
if objets=0 then do
if fr=1 then 'PICKOBJ("Sélectionnez le texte à souligner")'
else 'PICKOBJ("Select the text to underline")'
i=result
if i>0 then call souligner(i)
end
exit
souligner: procedure
parse arg i
'TYPE(O__='i')'; type=result
if type = 4 | type = 5 | type = 6 then do
'DRAW(COL(O__),LINE(O__)+1,COL(O__)+WIDTH(O__)+1,LINE(O__)+1)'
return 1
end
return 0
/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
if fr=1 then 'MESSAGE("Script Souligner.AmiCAD"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
else 'MESSAGE("Souligner.AmiCAD script"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
if fr=1 then 'MESSAGE("Script Souligner.AmiCAD"+CHR(10)+"Erreur en ligne 'SIGL'")'
else 'MESSAGE("Souligner.AmiCAD script"+CHR(10)+"Error in line 'SIGL'")'
exit